home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 11 / FM Towns Free Software Collection 11.iso / t_os / joke / m_clock / source / tvtimer2.bas < prev   
Encoding:
BASIC Source File  |  1995-08-16  |  4.9 KB  |  106 lines
  1. 30000 '********************************************************************
  2. 30010 '**                    テレビ局内時計の部分２                      **
  3. 30020 '**                   V1.3から追加しました(^_^;)                   **
  4. 30030 '********************************************************************
  5. 30040 *V_TIMER2
  6. 30050 SCREEN 1,0,0:SCREEN@ 1:CLS:LINE (0,0)-(319,239),PSET,[0,0,0,1],BF
  7. 30060 DIM FONT%((15*27)*10+(6*21))
  8. 30070 '          ↑0-9FONT  ↑":"FONT
  9. 30080 '            405Words    126Words
  10. 30090 '------------------------FONT MAKE---------------------------
  11. 30100 '1
  12. 30110 LINE (13*3,13*3)-(14*3-1,22*3-1),PSET,7,BF
  13. 30120 GET@A(9*3,13*3)-(14*3-1,22*3-1),FONT%,(405*1)
  14. 30130 '8
  15. 30140 FOR I=0 TO 2
  16. 30150   LINE(51*3+I,13*3+I)-((56*3-1)-I,(22*3-1)-I),PSET,7,B '□
  17. 30160 NEXT
  18. 30170 LINE (52*3,17*3)-(55*3-1,18*3-1),PSET,7,BF'－
  19. 30180 GET@A(51*3,13*3)-(56*3-1,22*3-1),FONT%,(405*8)
  20. 30190 '0
  21. 30200 PUT@A(3*3,13*3)-(8*3-1,22*3-1),FONT%,,,,,(405*8)
  22. 30210 LINE (4*3,17*3)-(7*3-1,18*3-1),PSET,[0,0,0,1],BF  '－を消す
  23. 30220 GET@A(3*3,13*3)-(8*3-1,22*3-1),FONT%
  24. 30230 '9
  25. 30240 PUT@A(57*3,13*3)-(62*3-1,22*3-1),FONT%,,,,,(405*8)
  26. 30250 LINE (57*3,18*3)-(61*3-1,22*3-1),PSET,[0,0,0,1],BF'└を消す
  27. 30260 GET@A(57*3,13*3)-(62*3-1,22*3-1),FONT%,(405*9)
  28. 30270 '6
  29. 30280 PUT@A(39*3,13*3)-(44*3-1,22*3-1),FONT%,,,,,(405*8)
  30. 30290 LINE (40*3,13*3)-(44*3-1,17*3-1),PSET,[0,0,0,1],BF'｜を消す
  31. 30300 GET@A(39*3,13*3)-(44*3-1,22*3-1),FONT%,(405*6)
  32. 30310 '7
  33. 30320 PUT@A(45*3,13*3)-(50*3-1,22*3-1),FONT%
  34. 30330 LINE (45*3,14*3)-(49*3-1,22*3-1),PSET,[0,0,0,1],BF'└を消す
  35. 30340 GET@A(45*3,13*3)-(50*3-1,22*3-1),FONT%,(405*7)
  36. 30350 '5
  37. 30360 PUT@A(33*3,13*3)-(38*3-1,22*3-1),FONT%,,,,,(405*6)
  38. 30370 LINE (33*3,18*3)-(34*3-1,21*3-1),PSET,[0,0,0,1],BF'｜を消す
  39. 30380 LINE (33*3,13*3)-(38*3-1,14*3-1),PSET,7,BF'－を追加
  40. 30390 GET@A(33*3,13*3)-(38*3-1,22*3-1),FONT%,(405*5)
  41. 30400 '4
  42. 30410 PUT@A(27*3,13*3)-(32*3-1,22*3-1),FONT%,,,,,(405*9)
  43. 30420 LINE (28*3,13*3)-(31*3-1,14*3-1),PSET,[0,0,0,1],BF'－を消す
  44. 30430 GET@A(27*3,13*3)-(32*3-1,22*3-1),FONT%,(405*4)
  45. 30440 '3
  46. 30450 PUT@A(21*3,13*3)-(26*3-1,22*3-1),FONT%,,,,,(405*8)
  47. 30460 LINE (21*3,14*3)-(22*3-1,17*3-1),PSET,[0,0,0,1],BF'｜を消す
  48. 30470 LINE (21*3,18*3)-(22*3-1,21*3-1),PSET,[0,0,0,1],BF'｜を消す
  49. 30480 GET@A(21*3,13*3)-(26*3-1,22*3-1),FONT%,(405*3)
  50. 30490 '2
  51. 30500 PUT@A(15*3,13*3)-(20*3-1,22*3-1),FONT%,,,,,(405*3)
  52. 30510 LINE (15*3,18*3)-(16*3-1,21*3-1),PSET,7,BF'｜を描く
  53. 30520 LINE (19*3,18*3)-(20*3-1,21*3-1),PSET,[0,0,0,1],BF'｜を消す
  54. 30530 GET@A(15*3,13*3)-(20*3-1,22*3-1),FONT%,(405*2)
  55. 30540 ':
  56. 30550 LINE (64*3,14*3)-(66*3-1,16*3-1),PSET,7,BF
  57. 30560 LINE (64*3,19*3)-(66*3-1,21*3-1),PSET,7,BF
  58. 30570 GET@A(64*3,14*3)-(66*3-1,21*3-1),FONT%,(405*10)
  59. 30580 '----------End Of Data Make
  60. 30590 LINE (0,13*3)-(319,22*3-1),PSET,[0,0,0,1],BF
  61. 30600 SCREEN 1,0,1:GOSUB *準備_VT2
  62. 30610 '
  63. 30620 '===================================================================
  64. 30630 '                         メインルーチン
  65. 30640 '===================================================================
  66. 30650 SIMPOSE ON
  67. 30660 *繰り返し_VT2
  68. 30670  OLDTIME$=TIME$
  69. 30680  WHILE OLDTIME$=TIME$:WEND
  70. 30690 '
  71. 30700  GOSUB *時刻表示_VT2
  72. 30710 '
  73. 30720 GOTO *繰り返し_VT2
  74. 30730 '
  75. 30740 '===================================================================
  76. 30750 '                時刻の表示をするサブルーチン
  77. 30760 '===================================================================
  78. 30770 *時刻表示_VT2
  79. 30780  OM1$=NM1$:OM2$=NM2$
  80. 30790  OS1$=NS1$:OS2$=NS2$
  81. 30800  NM1$=MID$(TIME$,4,1):NM2$=MID$(TIME$,5,1)
  82. 30810  NS1$=MID$(TIME$,7,1):NS2$=RIGHT$(TIME$,1)
  83. 30820 '
  84. 30830  IF OM1$<>NM1$ THEN                                                            PUT@A(6*3,4*3)-(11*3-1,13*3-1),FONT%,,,,,(405*(VAL(NM1$)))
  85. 30840  IF OM2$<>NM2$ THEN                                                            PUT@A(12*3,4*3)-(17*3-1,13*3-1),FONT%,,,,,(405*(VAL(NM2$)))
  86. 30850  IF OS1$<>NS1$ THEN                                                            PUT@A(23*3,4*3)-(28*3-1,13*3-1),FONT%,,,,,(405*(VAL(NS1$)))
  87. 30860  IF OS2$<>NS2$ THEN                                                            PUT@A(29*3,4*3)-(34*3-1,13*3-1),FONT%,,,,,(405*(VAL(NS2$)))
  88. 30870  RETURN
  89. 30880 '
  90. 30890 '===================================================================
  91. 30900 '                画面の準備をするサブルーチン
  92. 30910 '===================================================================
  93. 30920 *準備_VT2
  94. 30930  NM1$=MID$(TIME$,4,1):NM2$=MID$(TIME$,5,1)
  95. 30940  NS1$=MID$(TIME$,7,1):NS2$=RIGHT$(TIME$,1)
  96. 30950 '
  97. 30960  PUT@A(6*3,4*3)-(11*3-1,13*3-1),FONT%,,,,,(405*(VAL(NM1$)))
  98. 30970  PUT@A(12*3,4*3)-(17*3-1,13*3-1),FONT%,,,,,(405*(VAL(NM2$)))
  99. 30980  PUT@A(19*3,5*3)-(21*3-1,12*3-1),FONT%,,,,,(405*10)
  100. 30990  PUT@A(23*3,4*3)-(28*3-1,13*3-1),FONT%,,,,,(405*(VAL(NS1$)))
  101. 31000  PUT@A(29*3,4*3)-(34*3-1,13*3-1),FONT%,,,,,(405*(VAL(NS2$)))
  102. 31010  MOUSE 0:ON MOUSE(4) GOSUB *MENU_VT2:MOUSE(4) ON
  103. 31020  RETURN
  104. 31030 *MENU_VT2
  105. 31040 MOUSE(4) OFF:ERASE FONT%:'GOTO *FORMAT
  106.